home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / rxasl.lha / rxasl / examples / fontF.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2000-11-07  |  645 b   |  35 lines
  1. /* */
  2.  
  3. a.FilterFunc        = "filterF.rexx"
  4. a.FilterString        = 0
  5. a.TitleText         = 'Fonts with filter fun'
  6. a.Name                = 'topaz'
  7. a.Size                = 8
  8. a.Style                = 0
  9. a.Flags                = 1
  10. a.FrontPen            = 0
  11. a.BackPen            = 1
  12. a.DoFrontPen        = 1
  13. a.DoBackPen            = 1
  14. a.DoDrawMode        = 1
  15. a.DoStyle            = 1
  16. a.FixedWidthOnly    = 0
  17. a.MinHeight            = 0
  18. a.MaxHeight            = 22
  19. a.MaxFrontPen        = 12
  20. a.MaxBackPen        = 12
  21.  
  22. say "result:" ReqFont(A)
  23.  
  24. say "LeftEdge:" a.LeftEdge
  25. say "TopEdge: " a.TopEdge
  26. say "Width:   " a.Width
  27. say "Height:  " a.Height
  28. say "Name:    " a.Name
  29. say "Size:    " a.Size
  30. say "Style:   " a.Style
  31. say "Flags:   " a.Flags
  32. say "FrontPen:" a.FrontPen
  33. say "BackPen: " a.BackPen
  34.  
  35.